﻿Imports System.Xml

Partial Public Class XMLBlaster
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Private Sub btnBlaster_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnBlaster.Click
        Dim ws As New TryIEntry.TryISingleEntry
        Dim retString As String


        Dim xdoc As XmlDocument = New XmlDocument
        xdoc.Load(Server.MapPath("eTest.xml"))

        retString = ws.ProcessXML(xdoc)

        If InStr(retString, "http://") > 0 Then
            'retString = Replace(retString, "http://scabbard/tryi/", "")
            lblMsg.Text = retString
            'Response.Redirect(retString)
        Else
            lblMsg.Text = retString
        End If
    End Sub
End Class